home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / slarnv.z / slarnv
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. SSSSLLLLAAAARRRRNNNNVVVV((((3333FFFF))))                                                          SSSSLLLLAAAARRRRNNNNVVVV((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      SLARNV - return a vector of n random real numbers from a uniform or
  10.      normal distribution
  11.  
  12. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  13.      SUBROUTINE SLARNV( IDIST, ISEED, N, X )
  14.  
  15.          INTEGER        IDIST, N
  16.  
  17.          INTEGER        ISEED( 4 )
  18.  
  19.          REAL           X( * )
  20.  
  21. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  22.      SLARNV returns a vector of n random real numbers from a uniform or normal
  23.      distribution.
  24.  
  25.  
  26. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  27.      IDIST   (input) INTEGER
  28.              Specifies the distribution of the random numbers:
  29.              = 1:  uniform (0,1)
  30.              = 2:  uniform (-1,1)
  31.              = 3:  normal (0,1)
  32.  
  33.      ISEED   (input/output) INTEGER array, dimension (4)
  34.              On entry, the seed of the random number generator; the array
  35.              elements must be between 0 and 4095, and ISEED(4) must be odd.
  36.              On exit, the seed is updated.
  37.  
  38.      N       (input) INTEGER
  39.              The number of random numbers to be generated.
  40.  
  41.      X       (output) REAL array, dimension (N)
  42.              The generated random numbers.
  43.  
  44. FFFFUUUURRRRTTTTHHHHEEEERRRR DDDDEEEETTTTAAAAIIIILLLLSSSS
  45.      This routine calls the auxiliary routine SLARUV to generate random real
  46.      numbers from a uniform (0,1) distribution, in batches of up to 128 using
  47.      vectorisable code. The Box-Muller method is used to transform numbers
  48.      from a uniform to a normal distribution.
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.